home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / CED / rexx / VMake.ced < prev   
Encoding:
Text File  |  1995-12-24  |  1.5 KB  |  84 lines
  1. /*
  2. **      $Id: VMake.ced,v 30.0 1994/06/10 18:06:06 dice Exp $
  3. **
  4. **      VMake integration.  Script for ASDG CygnusED Professional (tm).
  5. **
  6. */
  7. PARSE UPPER ARG COMMAND /* Build Run Debug Front Open Compile */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. /* Note that CED does not allow us to track a variable against the file */
  12. /* so we must assume only one copy of VMake is running at a time        */
  13. VPort = 'VMAKE.01'
  14.  
  15. 'SAVE ALL CHANGES'
  16.  
  17. IF show('p','DICE_ERROR_PARSER') THEN
  18.    ADDRESS DICE_ERROR_PARSER Clear
  19.  
  20. 'DM Running Vmake to' command
  21.  
  22. ADDRESS VALUE VPort
  23.  
  24. SELECT
  25.    WHEN COMMAND = 'COMPILE' THEN
  26.       DO
  27.          ADDRESS
  28.          'Status FILENAME'
  29.          file = RESULT
  30.          ADDRESS
  31.  
  32.          'Select' file
  33.          IF RC = 0 THEN
  34.             'CALL 1'
  35.       END
  36.  
  37.    WHEN COMMAND = 'BUILD' THEN
  38.       DO
  39.          'CALL 2'
  40.          CRC = RC
  41.       END
  42.    WHEN COMMAND = 'RUN'   THEN
  43.       DO
  44.          'CALL 2'
  45.          IF RC = 0 THEN
  46.             'CALL 4'
  47.          CRC = RC
  48.       END
  49.    WHEN COMMAND = 'DEBUG' THEN
  50.       DO
  51.          'CALL 2'
  52.          IF RC = 0 THEN
  53.             'CALL 5'
  54.          CRC = RC
  55.       END
  56.    WHEN COMMAND = 'FRONT' THEN
  57.       DO
  58.          'FRONT'
  59.          CRC = RC
  60.       END
  61.    WHEN COMMAND = 'OPEN' THEN
  62.       DO
  63.          'FRONT'
  64.          CRC = RC
  65.       END
  66.    OTHERWISE
  67.       DO
  68.          address
  69.          'DM Unknown Command:' COMMAND
  70.          exit 5
  71.       END
  72. END
  73.  
  74. ADDRESS
  75.  
  76. IF CRC ~= 0 THEN
  77. DO
  78.    'DM' COMMAND 'Failed:' RESULT
  79. END
  80. ELSE
  81. DO
  82.    'DM' COMMAND 'Successful'
  83. END
  84.